h1 {
color: #fdfdfd;
background-color: purple;
padding: 3px 6px;
border-bottom: 5px solid black;
}
a:link, a:visited {
text-decoration: none;
transition: 0.3s;
}
a:hover, a:active {
color: red;
}
p {
font-size: 16px;
line-height: 1.6;
}
img {
padding: 10px;
margin: 10px;
border-radius: 10px;
}
I have met the requirements related to GitHub as I have set up a repository for STATS 220 and included a README.md file. In that file, I explained what this repository contains as well as the different languages I will be using along with the reasons why I created the README.md file. I have used two different levels of headers (# and ##), an ordered list for the reasons of this file, an unordered list for the languages I will use, bold key words and italic semester date, and a link to ChatGPT.
Here is a link to that repository: Stats 220 Repository
Here is a screenshot of the project folder:
The components that I
changed are the images, the layout, the number of images and the text
content. I changed the images to the brain meme (see below). The layout
becomes two images side by side to form a row and there and four rows. I
also change the meme content related to arrays.
#small brain text
small_brain_text <- image_blank(width = 400,
height = 400,
color = "#000") %>%
image_annotate(text = "Python:\na_list[0]",
color = "#fff",
font = "Sans Serif",
size = 80,
gravity = "center"
) %>%
image_border("white", "3x3")
# small brain
small_brain <- image_read("small_brain2.jpg") %>%
image_flop() %>%
image_border("white", "3x3")
first_row = image_append(c(small_brain_text, small_brain))
#mid brain text
mid_brain_text <- image_blank(width = 400,
height = 400,
color = "#000") %>%
image_annotate(text = "Java:\narray[0]",
color = "#fff",
font = "Sans Serif",
size = 80,
gravity = "center") %>%
image_border("white", "3x3")
# mid brain
mid_brain <- image_read("mid_brain.jpg") %>%
image_border("white", "3x3")
second_row = image_append(c(mid_brain_text, mid_brain))
#shine brain text
shine_brain_text <- image_blank(width = 400,
height = 400,
color = "#000") %>%
image_annotate(text = "C:\narray[0]",
color = "#fff",
font = "Sans Serif",
size = 80,
gravity = "center") %>%
image_border("white", "3x3")
# shine brain
shine_brain <- image_read("shine_brain.jpg") %>%
image_border("white", "3x3")
third_row = image_append(c(shine_brain_text, shine_brain))
#universe brain text
universe_brain_text <- image_blank(width = 400,
height = 400,
color = "#000") %>%
image_annotate(text = "R:\nvector[1]",
color = "#fff",
font = "Sans Serif",
size = 80,
gravity = "center") %>%
image_border("white", "3x3")
# universe brain
universe_brain <- image_read("universe_brain.jpg") %>%
image_border("white", "3x3")
forth_row = image_append(c(universe_brain_text, universe_brain))
images = c(first_row, second_row, third_row, forth_row)
my_meme = image_append(images, stack = TRUE)
my_meme
image_write(my_meme, "my_meme.png")
my_gif <- image_morph(images) %>%
image_modulate(brightness = 80, saturation = 120, hue = 90) %>%
image_animate(fps = 10)
my_gif
image_write(my_gif, "my_gif.gif")
I used some additional functions from the magick package, including image_flop which flips and image on the y-axis, image border which creates a coloured border around an image for clearer separation, and image_modulate to change the saturation etc.
I have also used additional CSS code. This includes adding a bottom border, added hover effect and removed the underline for anchor elements (links), added line height and font size for p elements to increase readability.